home *** CD-ROM | disk | FTP | other *** search
/ Freelog 114 / FreelogNo114-MarsAvril2013.iso / Systeme / Start Charming / setup.exe / {app} / pin.vbs < prev    next >
Text File  |  2012-10-24  |  955b  |  24 lines
  1. Set objShell = CreateObject("Shell.Application") 
  2.  
  3. Set wshShell = CreateObject("WScript.Shell")
  4. if wshShell.ExpandEnvironmentStrings("%PROGRAMFILES(x86)%") = "%PROGRAMFILES(x86)%" Then
  5.  
  6. Set objShell = CreateObject("Shell.Application") 
  7.  
  8. Set objFolder = objShell.Namespace(wshShell.ExpandEnvironmentStrings("%PROGRAMFILES%") & "\Start Charming") 
  9. Set objFolderItem = objFolder.ParseName("Start.lnk") 
  10. Set colVerbs = objFolderItem.Verbs 
  11. For Each objVerb in colVerbs 
  12.     If Replace(objVerb.name, "&", "") = "Pin to Taskbar" Then objVerb.DoIt 
  13. Next
  14. else
  15. wshShell.ExpandEnvironmentStrings("%PROGRAMFILES(x86)%")
  16. Set objFolder = objShell.Namespace(wshShell.ExpandEnvironmentStrings("%PROGRAMFILES(X86)%") & "\Start Charming") 
  17. Set objFolderItem = objFolder.ParseName("Start.lnk") 
  18. Set colVerbs = objFolderItem.Verbs 
  19. For Each objVerb in colVerbs 
  20.     If Replace(objVerb.name, "&", "") = "Pin to Taskbar" Then objVerb.DoIt 
  21. Next
  22. end if
  23.  
  24.